% V20210224 - 17.3.1 Console INCLUDE "GW.bas" % Create a page with title. p = GW_NEW_PAGE() GW_ADD_TITLEBAR(p, "GW Debugger "+GW_VER$()) % Add controls. GW_ADD_INPUTLINE(p, "Inputline:","Bla bla") lnk=GW_ADD_LINK(p, "This is a Link", "") btn=GW_ADD_BUTTON(p, "This is a Button", "") GW_USE_THEME_CUSTO_ONCE("style='background:green; color:white'") GW_ADD_BUTTON(p, "Modify links to \"GO\"", "CHANGE:GO") GW_USE_THEME_CUSTO_ONCE("style='background:red; color:white'") GW_ADD_BUTTON(p, "Modify links to \"\"", "CHANGE:EMPTY") % Add debugger! GW_ADD_DEBUGGER(p) % Now show page. GW_RENDER(p) % Call a dummy javascript JS("unknownJSfunction()") DO % Wait for user action. r$ = GW_WAIT_ACTION$() POPUP r$ GW_LOG("Action message: "+r$) % Show log in web console IF r$="CHANGE:GO" GW_MODIFY(lnk, "link", "GO") GW_MODIFY(btn, "link", "GO") ELSEIF r$="CHANGE:EMPTY" GW_MODIFY(lnk, "link", "") GW_MODIFY(btn, "link", "") ENDIF % End when BACK key is pressed. UNTIL r$ = "BACK" END